home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / source / contrib / fp / fp-exp.sty < prev    next >
Text File  |  1995-03-09  |  16KB  |  477 lines
  1. \NeedsTeXFormat{LaTeX2e}
  2. \ProvidesPackage{fp-exp}[1994/10/12]
  3.  
  4. %version information
  5. \def\FP@expversion{0.7b}
  6. \message{%
  7.   `Fixed Point Exponentiation',%
  8.   \space\space\space%
  9.   Version \FP@expversion%
  10.   \space (C) Michael Mehlich%
  11. }
  12.  
  13. %resolve dependencies
  14. \RequirePackage{fp-basic}
  15.  
  16. %%%public area (macros which may be used)%%%
  17.  
  18. %constants
  19. \edef\FPe{2.718281828459045235}
  20. %unary functions
  21. \def\FPexp#1#2{\FP@calld\FP@exp#1{#2}}
  22. \def\FPln#1#2{\FP@calld\FP@ln#1{#2}}
  23. \def\FPpow#1#2#3{\FP@pow#1{#2}{#3}}
  24. \def\FProot#1#2#3{\FP@root#1{#2}{#3}}
  25.  
  26. %%%private fp-area (don't use these macros)%%%
  27.  
  28. %allocation of registers
  29.  
  30. \countdef\FP@ls=50
  31. \countdef\FP@lfa=51
  32. \countdef\FP@lfb=52
  33.  
  34. \countdef\FP@regd=53
  35. \countdef\FP@rege=54
  36.  
  37. %compute e pow x
  38.  
  39. \expandafter\edef\csname FP@e0\endcsname{1.000000000000000000}
  40. \expandafter\edef\csname FP@e1\endcsname{2.718281828459045235}
  41. \expandafter\edef\csname FP@e2\endcsname{7.389056098930650227}
  42. \expandafter\edef\csname FP@e3\endcsname{20.085536923187667741}
  43. \expandafter\edef\csname FP@e4\endcsname{54.598150033144239078}
  44. \expandafter\edef\csname FP@e5\endcsname{148.413159102576603421}
  45. \expandafter\edef\csname FP@e6\endcsname{403.428793492735122608}
  46. \expandafter\edef\csname FP@e7\endcsname{1096.633158428458599264}
  47. \expandafter\edef\csname FP@e8\endcsname{2980.957987041728274744}
  48. \expandafter\edef\csname FP@e9\endcsname{8103.083927575384007710}
  49. \expandafter\edef\csname FP@e10\endcsname{22026.465794806716516958}
  50. \expandafter\edef\csname FP@e11\endcsname{59874.141715197818455326}
  51. \expandafter\edef\csname FP@e12\endcsname{162754.791419003920808005}
  52. \expandafter\edef\csname FP@e13\endcsname{442413.392008920503326103}
  53. \expandafter\edef\csname FP@e14\endcsname{1202604.284164776777749237}
  54. \expandafter\edef\csname FP@e15\endcsname{3269017.372472110639301855}
  55. \expandafter\edef\csname FP@e16\endcsname{8886110.520507872636763024}
  56. \expandafter\edef\csname FP@e17\endcsname{24154952.753575298214775435}
  57. \expandafter\edef\csname FP@e18\endcsname{65659969.137330511138786503}
  58. \expandafter\edef\csname FP@e19\endcsname{178482300.963187260844910034}
  59. \expandafter\edef\csname FP@e20\endcsname{485165195.409790277969106831}
  60. \expandafter\edef\csname FP@e21\endcsname{1318815734.483214697209998884}
  61. \expandafter\edef\csname FP@e22\endcsname{3584912846.131591561681159946}
  62. \expandafter\edef\csname FP@e23\endcsname{9744803446.248902600034632685}
  63. \expandafter\edef\csname FP@e24\endcsname{26489122129.843472294139162153}
  64. \expandafter\edef\csname FP@e25\endcsname{72004899337.385872524161351466}
  65. \expandafter\edef\csname FP@e26\endcsname{195729609428.838764269776397876}
  66. \expandafter\edef\csname FP@e27\endcsname{532048240601.798616683747304341}
  67. \expandafter\edef\csname FP@e28\endcsname{1446257064291.475173677047422997}
  68. \expandafter\edef\csname FP@e29\endcsname{3931334297144.042074388620580844}
  69. \expandafter\edef\csname FP@e30\endcsname{10686474581524.462146990468650741}
  70. \expandafter\edef\csname FP@e31\endcsname{29048849665247.425231085682111680}
  71. \expandafter\edef\csname FP@e32\endcsname{78962960182680.695160978022635108}
  72. \expandafter\edef\csname FP@e33\endcsname{214643579785916.064624297761531261}
  73. \expandafter\edef\csname FP@e34\endcsname{583461742527454.881402902734610391}
  74. \expandafter\edef\csname FP@e35\endcsname{1586013452313430.728129644625774660}
  75. \expandafter\edef\csname FP@e36\endcsname{4311231547115195.227113422292856925}
  76. \expandafter\edef\csname FP@e37\endcsname{11719142372802611.308772939791190195}
  77. \expandafter\edef\csname FP@e38\endcsname{31855931757113756.220328671701298646}
  78. \expandafter\edef\csname FP@e39\endcsname{86593400423993746.953606932719264934}
  79. \expandafter\edef\csname FP@e40\endcsname{235385266837019985.407899910749034805}
  80. \expandafter\edef\csname FP@e41\endcsname{639843493530054949.222663403515570819}
  81.  
  82. \expandafter\edef\csname FP@e-0\endcsname{1.000000000000000000}
  83. \expandafter\edef\csname FP@e-1\endcsname{0.367879441171442322}
  84. \expandafter\edef\csname FP@e-2\endcsname{0.135335283236612692}
  85. \expandafter\edef\csname FP@e-3\endcsname{0.049787068367863943}
  86. \expandafter\edef\csname FP@e-4\endcsname{0.018315638888734180}
  87. \expandafter\edef\csname FP@e-5\endcsname{0.006737946999085467}
  88. \expandafter\edef\csname FP@e-6\endcsname{0.002478752176666358}
  89. \expandafter\edef\csname FP@e-7\endcsname{0.000911881965554516}
  90. \expandafter\edef\csname FP@e-8\endcsname{0.000335462627902512}
  91. \expandafter\edef\csname FP@e-9\endcsname{0.000123409804086680}
  92. \expandafter\edef\csname FP@e-10\endcsname{0.000045399929762485}
  93. \expandafter\edef\csname FP@e-11\endcsname{0.000016701700790246}
  94. \expandafter\edef\csname FP@e-12\endcsname{0.000006144212353328}
  95. \expandafter\edef\csname FP@e-13\endcsname{0.000002260329406981}
  96. \expandafter\edef\csname FP@e-14\endcsname{0.000000831528719104}
  97. \expandafter\edef\csname FP@e-15\endcsname{0.000000305902320502}
  98. \expandafter\edef\csname FP@e-16\endcsname{0.000000112535174719}
  99. \expandafter\edef\csname FP@e-17\endcsname{0.000000041399377188}
  100. \expandafter\edef\csname FP@e-18\endcsname{0.000000015229979745}
  101. \expandafter\edef\csname FP@e-19\endcsname{0.000000005602796438}
  102. \expandafter\edef\csname FP@e-20\endcsname{0.000000002061153622}
  103. \expandafter\edef\csname FP@e-21\endcsname{0.000000000758256043}
  104. \expandafter\edef\csname FP@e-22\endcsname{0.000000000278946809}
  105. \expandafter\edef\csname FP@e-23\endcsname{0.000000000102618796}
  106. \expandafter\edef\csname FP@e-24\endcsname{0.000000000037751345}
  107. \expandafter\edef\csname FP@e-25\endcsname{0.000000000013887944}
  108. \expandafter\edef\csname FP@e-26\endcsname{0.000000000005109089}
  109. \expandafter\edef\csname FP@e-27\endcsname{0.000000000001879529}
  110. \expandafter\edef\csname FP@e-28\endcsname{0.000000000000691440}
  111. \expandafter\edef\csname FP@e-29\endcsname{0.000000000000254367}
  112. \expandafter\edef\csname FP@e-30\endcsname{0.000000000000093576}
  113. \expandafter\edef\csname FP@e-31\endcsname{0.000000000000034425}
  114. \expandafter\edef\csname FP@e-32\endcsname{0.000000000000012664}
  115. \expandafter\edef\csname FP@e-33\endcsname{0.000000000000004659}
  116. \expandafter\edef\csname FP@e-34\endcsname{0.000000000000001714}
  117. \expandafter\edef\csname FP@e-35\endcsname{0.000000000000000631}
  118. \expandafter\edef\csname FP@e-36\endcsname{0.000000000000000232}
  119. \expandafter\edef\csname FP@e-37\endcsname{0.000000000000000085}
  120. \expandafter\edef\csname FP@e-38\endcsname{0.000000000000000031}
  121. \expandafter\edef\csname FP@e-39\endcsname{0.000000000000000012}
  122. \expandafter\edef\csname FP@e-40\endcsname{0.000000000000000004}
  123. \expandafter\edef\csname FP@e-41\endcsname{0.000000000000000002}
  124. \expandafter\edef\csname FP@e-42\endcsname{0.000000000000000001}
  125.  
  126. \def\FP@exp@mul#1#2#3#4#5#6{%
  127.   % #1 macro which gets fractional part 1
  128.   % #2 macro which fractional part 1
  129.   % #3 first value part 1
  130.   % #4 first value part 2
  131.   % #5 second value part 1
  132.   % #6 second value part 2
  133.   \FP@split\FP@xq\FP@xr\FP@xz{#3} \FP@split\FP@xt\FP@xu\FP@xv{#4}%
  134.   \FP@split\FP@yq\FP@yr\FP@yz{#5} \FP@split\FP@yt\FP@yu\FP@yv{#6}%
  135.   \FP@prod=0\relax%
  136.   \edef\FP@rd{}%
  137.   \FP@@mul vv             \relax\FP@saveshift%
  138.   \FP@@mul vu uv         \relax\FP@saveshift%
  139.   \FP@@mul uu vt tv         \relax\FP@saveshift%
  140.   \FP@@mul ut tu vz zv         \relax\FP@saveshift%
  141.   \FP@@mul tt uz zu vr rv     \relax\FP@saveshift%
  142.   \FP@@mul zt tz ur ru qv vq     \relax\FP@saveshift%
  143.   \FP@@mul zz rt tr qu uq     \relax\FP@saveshift%
  144.   \FP@@mul rz zr qt tq         \relax\FP@saveshift%
  145.   \FP@@mul rr qz zq         \relax\FP@saveshift%
  146.   \FP@@mul qr rq         \relax\FP@saveshift%
  147.   \FP@@mul qq             \relax\FP@saveshift\FP@saveshift%
  148.   \FP@ninesplit\FP@rd#1=\FP@res%
  149.   \FP@ninesplit\FP@rd#2=\FP@res%
  150. }
  151.  
  152. \def\FP@exp@divn#1#2#3#4#5{%
  153.   % #1 macro which gets fractional part 1
  154.   % #2 macro which fractional part 1
  155.   % #3 value part 1
  156.   % #4 value part 2
  157.   % #5 integer (0,..,1000)
  158.   \FP@rega=#3\divide\FP@rega#5%
  159.   \FP@regd=\FP@rega%
  160.   \multiply\FP@rega#5%
  161.   \advance\FP@rega-#3
  162.   \multiply\FP@rega-1000\relax%
  163.   \FP@regb=#4\divide\FP@regb1000000\relax%
  164.   \advance\FP@rega\FP@regb%
  165.   \FP@regc=\FP@rega\divide\FP@regc#5%
  166.   \FP@rege=\FP@regc\multiply\FP@rege1000000\relax%
  167.   \multiply\FP@regc#5\advance\FP@rega-\FP@regc\multiply\FP@rega1000000\relax%
  168.   \multiply\FP@regb1000000\relax\advance\FP@regb-#4%
  169.   \advance\FP@rega-\FP@regb%
  170.   \divide\FP@rega#5%
  171.   \advance\FP@rege\FP@rega%
  172.   #1=\FP@regd%
  173.   #2=\FP@rege%
  174. }
  175.  
  176. %exp (for values between -1 and 1)
  177. \def\FP@@exp#1#2#3#4{%
  178.   % #1 macro which gets the result
  179.   % #2 sign
  180.   % #3 fractional part 1
  181.   % #4 fractional part 2
  182.   \ifnum\ifnum#3=0 0\else1\fi\ifnum#4=0 0\else1\fi=0\relax%
  183.     \edef#1{1}%
  184.   \else%
  185.     \FP@rs=1\relax%
  186.     \FP@ria=0\relax%
  187.     \ifnum#2>0\relax%
  188.       \FP@rib=1\relax%
  189.       \FP@rfa=#3\relax%
  190.       \FP@rfb=#4\relax%
  191.     \else%
  192.       \FP@rib=0\relax%
  193.       \ifnum#4=0\relax%
  194.         \FP@rfa=1000000000\relax\FP@rfb=0\relax%
  195.       \else%
  196.         \FP@rfa=999999999\relax\FP@rfb=1000000000\relax%
  197.       \fi%
  198.       \advance\FP@rfa-#3\relax%
  199.       \advance\FP@rfb-#4\relax%
  200.     \fi%
  201.     \FP@ls=#2\relax%
  202.     \FP@lfa=#3\relax%
  203.     \FP@lfb=#4\relax%
  204.     \FP@count=1\relax%
  205.     \loop%
  206.       \advance\FP@count1\relax%
  207.       \multiply\FP@ls#2\relax%
  208.       \FP@exp@mul\FP@lfa\FP@lfb\FP@lfa\FP@lfb#3#4\relax%
  209.       \FP@exp@divn\FP@lfa\FP@lfb\FP@lfa\FP@lfb\FP@count%
  210.       \ifnum\ifnum\FP@lfa=0 0\else1\fi\ifnum\FP@lfb=0 0\else1\fi>0\relax%
  211.         \ifnum\FP@ls>0\relax%
  212.           \advance\FP@rfa\FP@lfa%
  213.       \advance\FP@rfb\FP@lfb%
  214.       \ifnum\FP@rfb<1000000000\relax\else%
  215.         \advance\FP@rfa1\relax%
  216.         \advance\FP@rfb-1000000000\relax%
  217.       \fi%
  218.       \ifnum\FP@rfa<1000000000\relax\else%
  219.         \advance\FP@rib1\relax%
  220.         \advance\FP@rfa-1000000000\relax%
  221.       \fi%
  222.         \else%
  223.           \advance\FP@rfa-\FP@lfa%
  224.       \advance\FP@rfb-\FP@lfb%
  225.       \ifnum\FP@rfb<0\relax%
  226.         \advance\FP@rfa-1\relax%
  227.         \advance\FP@rfb1000000000\relax%
  228.       \fi%
  229.       \ifnum\FP@rfa<0\relax%
  230.         \advance\FP@rib-1\relax%
  231.         \advance\FP@rfa1000000000\relax%
  232.       \fi%
  233.         \fi%
  234.       \repeat%
  235.     \FP@store#1{r}%
  236.   \fi%
  237. }
  238.  
  239. \def\FP@exp#1#2.#3.#4\relax{%
  240.   % #1 macro which gets the result
  241.   % #2 integer part of value
  242.   % #3 fractional part of value
  243.   % #4 dummy to swallow everthing after the 2nd '.'
  244.   %
  245.   \FP@beginmessage{EXP}%
  246.   %
  247.   {\def\FP@beginmessage##1{}%
  248.    \def\FP@endmessage##1{}%
  249.    \FP@readvalue{x}{#2}{#3}%
  250.    \ifnum\FP@xia=0\relax%
  251.       \ifnum\FP@xs<0\relax%
  252.         \ifnum\FP@xib>42\relax%
  253.           \edef\FP@tmp{0}%
  254.         \else%
  255.           \edef\FP@tmp{\csname FP@e-\the\FP@xib\endcsname}%
  256.         \fi%
  257.       \else%
  258.         \ifnum\FP@xib>41\relax%
  259.           \FP@errmessage{Overflow}%
  260.         \else%
  261.           \edef\FP@tmp{\csname FP@e\the\FP@xib\endcsname}%
  262.         \fi%
  263.       \fi%
  264.       \FP@@exp\FP@tmpa\FP@xs\FP@xfa\FP@xfb%
  265.       \FPmul\FP@tmp\FP@tmpa\FP@tmp%
  266.       \global\let\FP@tmp=\FP@tmp%
  267.    \else%
  268.      \FP@errmessage{Overflow}%
  269.    \fi%
  270.   }%
  271.   %
  272.   \FP@endmessage{}%
  273.   %
  274.   \let#1\FP@tmp%
  275. }
  276.  
  277. %compute ln x
  278.  
  279. \expandafter\edef\csname FP@ln2-0\endcsname{0.000000000000000000}
  280. \expandafter\edef\csname FP@ln2-1\endcsname{0.693147180559945309}
  281. \expandafter\edef\csname FP@ln2-2\endcsname{1.386294361119890618}
  282. \expandafter\edef\csname FP@ln2-3\endcsname{2.079441541679835928}
  283.  
  284. \expandafter\edef\csname FP@ln10-0\endcsname{0.000000000000000000}
  285. \expandafter\edef\csname FP@ln10-1\endcsname{2.302585092994045684}
  286. \expandafter\edef\csname FP@ln10-2\endcsname{4.605170185988091368}
  287. \expandafter\edef\csname FP@ln10-3\endcsname{6.907755278982137052}
  288. \expandafter\edef\csname FP@ln10-4\endcsname{9.210340371976182736}
  289. \expandafter\edef\csname FP@ln10-5\endcsname{11.512925464970228420}
  290. \expandafter\edef\csname FP@ln10-6\endcsname{13.815510557964274104}
  291. \expandafter\edef\csname FP@ln10-7\endcsname{16.118095650958319788}
  292. \expandafter\edef\csname FP@ln10-8\endcsname{18.420680743952365472}
  293. \expandafter\edef\csname FP@ln10-9\endcsname{20.723265836946411156}
  294. \expandafter\edef\csname FP@ln10-10\endcsname{23.025850929940456840}
  295. \expandafter\edef\csname FP@ln10-11\endcsname{25.328436022934502524}
  296. \expandafter\edef\csname FP@ln10-12\endcsname{27.631021115928548208}
  297. \expandafter\edef\csname FP@ln10-13\endcsname{29.933606208922593892}
  298. \expandafter\edef\csname FP@ln10-14\endcsname{32.236191301916639576}
  299. \expandafter\edef\csname FP@ln10-15\endcsname{34.538776394910685260}
  300. \expandafter\edef\csname FP@ln10-16\endcsname{36.841361487904730944}
  301. \expandafter\edef\csname FP@ln10-17\endcsname{39.143946580898776628}
  302. \expandafter\edef\csname FP@ln10-18\endcsname{41.446531673892822312}
  303.  
  304. \def\FP@ln@divtwo#1#2#3#4#5#6{%
  305.   % #1 macro which gets integer part
  306.   % #2 macro which gets fractional part 1
  307.   % #3 macro which fractional part 2
  308.   % #4 integer part 1
  309.   % #5 fractional part 1
  310.   % #6 fractional part 2
  311.   #1=#4\relax%
  312.   #2=#5\relax\ifodd#4\advance#21000000000\relax\fi%
  313.   #3=#6\relax\ifodd#5\advance#31000000000\relax\fi%
  314.   \divide#32\relax%
  315.   \divide#22\relax%
  316.   \divide#12\relax%
  317. }
  318.  
  319. %ln for values between (1 and 2)
  320. \def\FP@@ln#1#2#3#4{%
  321.   % #1 macro which gets the result
  322.   % #2 integer part (1 or 2)
  323.   % #3 fractional part 1
  324.   % #4 fractional part 2
  325.   {\FP@xs=1\FP@xia=0\FP@xib=#2\FP@xfa=#3\FP@xfb=#4%
  326.    {\advance\FP@xib-1\relax\FP@store\FP@tmpa{x}\global\let\FP@tmpa\FP@tmpa}%
  327.    {\advance\FP@xib+1\relax\FP@store\FP@tmpb{x}\global\let\FP@tmpb\FP@tmpb}%
  328.    \FPdiv\FP@tmpa\FP@tmpa\FP@tmpb%
  329.    %
  330.    \def\next##1.##2.##3\relax{\FP@readvalue{x}{##1}{##2}}%
  331.    \expandafter\next\FP@tmpa..\relax%
  332.    %
  333.    \FP@lfa=\FP@xfa%
  334.    \FP@lfb=\FP@xfb%
  335.    %
  336.    \FP@rs=1\relax%
  337.    \FP@ria=0\relax%
  338.    \FP@rib=0\relax%
  339.    \FP@rfa=\FP@xfa%
  340.    \FP@rfb=\FP@xfb%
  341.    %
  342.    \FP@count=1\relax%
  343.    \FP@exp@mul\FP@xfa\FP@xfb\FP@xfa\FP@xfb\FP@xfa\FP@xfb%
  344.    %
  345.    \loop%
  346.      \advance\FP@count2\relax%
  347.      \FP@exp@mul\FP@lfa\FP@lfb\FP@lfa\FP@lfb\FP@xfa\FP@xfb%
  348.      \ifnum\ifnum\FP@lfa=0 0\else1\fi\ifnum\FP@lfb=0 0\else1\fi=0\relax\else%
  349.        \FP@exp@divn\FP@yfa\FP@yfb\FP@lfa\FP@lfb\FP@count%
  350.        \advance\FP@rfb\FP@yfb%
  351.        \advance\FP@rfa\FP@yfa%
  352.        \ifnum\FP@rfb<1000000000\relax\else%
  353.          \advance\FP@rfa1\relax%
  354.      \advance\FP@rfb-1000000000\relax%
  355.        \fi%
  356.        \ifnum\FP@rfa<1000000000\relax\else%
  357.          \advance\FP@rib1\relax%
  358.      \advance\FP@rfa-1000000000\relax%
  359.        \fi%
  360.      \repeat%
  361.    %
  362.    \advance\FP@rfa\FP@rfa%
  363.    \ifnum\FP@rfb<500000000\relax\else%
  364.      \advance\FP@rfa1\relax%
  365.      \advance\FP@rfb-500000000\relax%
  366.    \fi%
  367.    \advance\FP@rfb\FP@rfb%
  368.    %
  369.    \FP@store\FP@tmpa{r}
  370.    %
  371.    \global\let\FP@tmpa\FP@tmpa%
  372.   }%
  373.   %
  374.   \let#1\FP@tmpa%
  375. }
  376.  
  377. \def\FP@ln#1#2.#3.#4\relax{%
  378.   % #1 macro which gets the result
  379.   % #2 integer part of value
  380.   % #3 fractional part of value
  381.   % #4 dummy to swallow everthing after the 2nd '.'
  382.   %
  383.   \FP@beginmessage{LN}%
  384.   %
  385.   {\def\FP@beginmessage##1{}%
  386.    \def\FP@endmessage##1{}%
  387.    %
  388.    \FP@readvalue{x}{#2}{#3}%
  389.    %
  390.    \ifFP@zero{x}%
  391.      \FP@errmessage{Logarithm of zero}%
  392.    \else\ifnum\FP@xs<0\relax%
  393.      \FP@errmessage{Logarithm of negative value}%
  394.    \else%
  395.      \FP@count=0\relax%
  396.      \loop%
  397.         \ifnum\ifnum\FP@xia>0 1\else0\fi\ifnum\FP@xib>9 1\else0\fi>0\relax%
  398.           \advance\FP@count1\relax%
  399.           \FP@divten{x}%
  400.         \repeat%
  401.      \loop%
  402.        \ifnum\ifnum\FP@xia=0 0\else1\fi\ifnum\FP@xib=0 0\else1\fi=0\relax%
  403.          \advance\FP@count-1\relax%
  404.      \FP@multen{x}%
  405.        \repeat%
  406.      \ifnum\FP@count<0\relax%
  407.        \FP@count=-\FP@count%
  408.        \edef\FP@tmpc{-\csname FP@ln10-\the\FP@count\endcsname}%
  409.      \else%
  410.        \edef\FP@tmpc{\csname FP@ln10-\the\FP@count\endcsname}%
  411.      \fi%
  412.      \FP@count=0\relax%
  413.      \loop%
  414.        \ifnum\FP@xib<2\relax\else%
  415.          \advance\FP@count1\relax%
  416.          \FP@ln@divtwo\FP@xib\FP@xfa\FP@xfb\FP@xib\FP@xfa\FP@xfb%
  417.        \repeat%
  418.      \FPadd\FP@tmpc\FP@tmpc{\csname FP@ln2-\the\FP@count\endcsname}%
  419.      \FP@@ln\FP@tmpb\FP@xib\FP@xfa\FP@xfb%
  420.      \FPadd\FP@tmp\FP@tmpc\FP@tmpb%
  421.    \fi\fi%
  422.    \global\let\FP@tmp\FP@tmp%
  423.   }%
  424.   %
  425.   \FP@endmessage{}%
  426.   %
  427.   \let#1\FP@tmp
  428. }
  429.  
  430. %compute x pow y
  431.  
  432. \def\FP@pow#1#2#3{%
  433.   % #1 macro, which gets the result
  434.   % #2 base
  435.   % #3 exponent
  436.   %
  437.   \FP@beginmessage{POW}%
  438.   %
  439.   {\def\FP@beginmessage##1{}%
  440.    \def\FP@endmessage##1{}%
  441.    %
  442.    \FPln\FP@tmpd{#2}%
  443.    \FPmul\FP@tmpd\FP@tmpd{#3}%
  444.    \FPexp\FP@tmp\FP@tmpd%
  445.    %
  446.    \global\let\FP@tmp\FP@tmp%
  447.   }%
  448.   %
  449.   \FP@endmessage{}%
  450.   %
  451.   \let#1\FP@tmp%
  452. }
  453.  
  454. %compute y-th root of x
  455.  
  456. \def\FP@root#1#2#3{%
  457.   % #1 macro, which gets the result
  458.   % #2 base
  459.   % #3 which root
  460.   %
  461.   \FP@beginmessage{ROOT}%
  462.   %
  463.   {\def\FP@beginmessage##1{}%
  464.    \def\FP@endmessage##1{}%
  465.    %
  466.    \FPln\FP@tmpd{#2}%
  467.    \FPdiv\FP@tmpd\FP@tmpd{#3}%
  468.    \FPexp\FP@tmp\FP@tmpd%
  469.    %
  470.    \global\let\FP@tmp\FP@tmp%
  471.   }%
  472.   %
  473.   \FP@endmessage{}%
  474.   %
  475.   \let#1\FP@tmp%
  476. }
  477.